home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / datatypes / debox_dt / install < prev    next >
Text File  |  1996-04-07  |  2KB  |  75 lines
  1. ;
  2. ; Installer Script for Flowerpower's datatypes
  3. ; $VER: 40.1 (30.1.95)
  4. ;
  5. ; permission is hereby granted to use this script for whatever you want.
  6. ; print it and make a fire of it if you like.
  7. ;
  8.  
  9. (set #basename   "debox")
  10. (set #descriptor "DeBox")
  11.  
  12. (set @default-dest "SYS:")
  13.  
  14. (if (askchoice (prompt @app-name)
  15.                (help @askchoice-help)
  16.                (choices "Installation" "De-Installation"))
  17.  
  18. ; De-Installation
  19.  
  20.     (
  21.         (delete (cat "SYS:Classes/Datatypes/" #basename ".datatype")
  22.                 (prompt "The class file will now be deleted from \"SYS:Classes/Datatypes\".")
  23.                 (help "No help available.")
  24.                 (confirm) )
  25.         
  26.         (delete (cat "DEVS:Datatypes/" #descriptor)
  27.                 (prompt "The descriptor will now be deleted from \"DEVS:Datatypes\".")
  28.                 (help "No help available.")
  29.                 (confirm)
  30.                 (infos) )
  31.  
  32.         (run "C:AddDataTypes Refresh")
  33.         (run "C:Avail >NIL: Flush")
  34.  
  35.         (message "De-Installation complete!\n"
  36.               @app-name
  37.                " was removed from your "
  38.               "\"" @default-dest "\" "
  39.               "drawer\n(or partition) "
  40.               "and is no longer usable.\n"
  41.               "(Even if you do NOT reboot your machine ;-)")
  42.         (exit (quiet))
  43. )
  44.  
  45. ; Installation
  46.  
  47.     (
  48.         (copylib   (source (cat "Classes/Datatypes/" #basename ".datatype"))
  49.                    (dest "SYS:Classes/Datatypes")
  50.                    (prompt "The class file will now be copied to \"SYS:Classes/Datatypes\".")
  51.                    (help @copylib-help)
  52.                    (confirm))
  53.  
  54.         (copyfiles (source "Devs/Datatypes/")
  55.                    (dest "DEVS:Datatypes")
  56.                    (choices #descriptor (cat #descriptor ".info"))
  57.                    (prompt "The descriptor file will now be copied to \"DEVS:Datatypes\".")
  58.                    (help @copyfiles-help)
  59.                    (confirm))
  60.         
  61.         (run "C:Avail >NIL: Flush")
  62.         (run "C:AddDataTypes Refresh")
  63.  
  64.         (message "Installation complete!\n"
  65.               @app-name
  66.                " can be found in your "
  67.               "\"" @default-dest "\" "
  68.               "drawer\n(or partition) "
  69.               "and is ready for use.\n"
  70.               "(You need NOT reboot your machine).")
  71.         (exit (quiet))
  72.     )
  73.  
  74. )
  75.